home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 061-070 / amok63 / m2ced / txt.lha / Errors.def < prev    next >
Text File  |  1991-11-13  |  1KB  |  43 lines
  1. (**********************************************************************
  2.  
  3.     :Program.    Errors.def
  4.     :Contents.   Get errors from *.mode or *.defe-Files
  5.     :Author.     Steffen Reith
  6.     :Address.    Hessenstr. 64, D-8700 Wuerzburg
  7.     :Phone.      None
  8.     :Copyright.  Shareware
  9.     :Language.   Modula-2
  10.     :Translator. M2Amiga A+L V3.2d
  11.     :Imports.    None
  12.     :History.    V1.0  10.June 1990
  13.  
  14. **********************************************************************)
  15. DEFINITION MODULE Errors;
  16.  
  17. CONST MaxError=5;
  18.  
  19. TYPE ErrorFeld=ARRAY [1..5] OF CARDINAL;
  20.  
  21.  
  22. PROCEDURE ExistErrorFile(VAR Name:ARRAY OF CHAR):BOOLEAN;
  23. (*:Input.      Name of an errorfile
  24.   :Result.     TRUE if exists
  25. *)
  26.  
  27. PROCEDURE OpenErrorFile(VAR Name:ARRAY OF CHAR);
  28. (*:Input.      Name of an Errorfile
  29.   :Semantic.   Open an errorfile for reading errornumbers
  30.   :Note.       Check Name with ExistErrorFile
  31. *)
  32.  
  33. PROCEDURE NextError(VAR SourcePos:LONGCARD; VAR ErrorNums:ErrorFeld);
  34. (*:Output.    SourcePos of the error in sourcefile in Bytes from beginning
  35.   :Output.    ErrorNums is an ARRAY of errorcodes
  36. *)
  37.  
  38. PROCEDURE CloseErrorFile();
  39. (* Semantic.  Close ErrorFile after use
  40. *)
  41.  
  42. END Errors.
  43.